﻿Public Class Form4

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        form_beginner.Close()
        form_intermediate.Show()
        Me.Close()
    End Sub

    Private Sub PicJa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicJa.Click

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        PicHa.Image = My.Resources.kutuk
        PicHa.Tag = 5
        PicNa.Image = My.Resources.pedhet
        PicNa.Tag = 6
        PicCa.Image = My.Resources.pitik
        PicCa.Tag = 7
        PicRa.Image = My.Resources.sawiyah
        PicRa.Tag = 8
        PicKa.Image = My.Resources.wedhus
        PicKa.Tag = 9
    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


    Private Sub CommonPictureBox_ClickHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicHa.Click, PicNa.Click, PicCa.Click, PicRa.Click, PicKa.Click
        Dim pbxSender As PictureBox = DirectCast(sender, PictureBox)
        Dim i As Integer = Convert.ToInt32(pbxSender.Tag)
        PicImage.Image = ImageList5.Images(i)

    End Sub
End Class
